home *** CD-ROM | disk | FTP | other *** search
/ Power Bytes: Money & Finance / PowerBytes Money and Finance CD-ROM 01 / PowerBytes Money and Finance CD-ROM 01.iso / Utilities / RA / RA Samples / Try me first.ra < prev    next >
Encoding:
Text File  |  1986-10-19  |  728 b   |  46 lines  |  [THED/THTH]
  1. |
  2. |   RA¬
  3. |
  4. |    Program basics
  5. |
  6. |   ⌐ 1986 COM~LINK & S.Koren
  7. |
  8. #M;
  9. "Anything in quotes is printed.!"
  10. "An imbedded exclamation mark!"
  11. "forces a cr/lf.!!"
  12. "Anything between a | and a cr/lf!"
  13. "or another | is considered a !"
  14. "comment."
  15. "!!A program is terminated by a $.!"
  16. #A;
  17. "Any macro definitions must come!"
  18. "after the terminating $ and before!"
  19. "another $.!"
  20. "!RA is Reverse-Polish and stack-!"
  21. "oriented.!!"
  22. #A;
  23. "THE END."
  24. $
  25. &A  "Hit any key:" ?ñ @ ╡`
  26. |
  27. |  RA title routine
  28. |
  29. &M @ #L; 8 A: ( #N; A. 1 - A: A. 0 > ~ ) #L; #O; #P;`
  30.  
  31. &O
  32. 40 100 ╜
  33. "RA¬"
  34. 60 45 ╜ 
  35. "⌐ 1986 COM~LINK & S.Koren" 
  36. 80 60 ╜
  37. "All rights reserved." `
  38.  
  39. &L
  40. 35 A: ("Ñ" A. 1 - A: A. 0 > ~ ) "!"`
  41.  
  42. &N
  43. "Ñ" 33 A: (" " A. 1 - A: A. 0 > ~ ) "Ñ" "!"`
  44.  
  45. &P ?ñ @ `
  46. $